home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / intuition / removeclass.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  2KB  |  80 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: removeclass.c,v 1.2 1996/10/24 15:51:24 aros Exp $
  4.     $Log: removeclass.c,v $
  5.     Revision 1.2  1996/10/24 15:51:24  aros
  6.     Use the official AROS macros over the __AROS versions.
  7.  
  8.     Revision 1.1  1996/08/28 17:55:36  digulla
  9.     Proportional gadgets
  10.     BOOPSI
  11.  
  12.  
  13.     Desc:
  14.     Lang: english
  15. */
  16. #include <clib/exec_protos.h>
  17. #include "intuition_intern.h"
  18.  
  19. /*****************************************************************************
  20.  
  21.     NAME */
  22.     #include <intuition/classes.h>
  23.     #include <clib/intuition_protos.h>
  24.  
  25.     AROS_LH1(void, RemoveClass,
  26.  
  27. /*  SYNOPSIS */
  28.     AROS_LHA(struct IClass *, classPtr, A0),
  29.  
  30. /*  LOCATION */
  31.     struct IntuitionBase *, IntuitionBase, 118, Intuition)
  32.  
  33. /*  FUNCTION
  34.     Makes a public class inaccessible. This function may be called
  35.     several times on the same class and even if the class never was
  36.     in the public list.
  37.  
  38.     INPUTS
  39.     classPtr - Pointer to the result of MakeClass(). May be NULL.
  40.  
  41.     RESULT
  42.     None.
  43.  
  44.     NOTES
  45.  
  46.     EXAMPLE
  47.  
  48.     BUGS
  49.  
  50.     SEE ALSO
  51.     MakeClass(), FreeClass(), AddClass(), "Basic Object-Oriented
  52.     Programming System for Intuition" and "boopsi Class Reference"
  53.     Dokument.
  54.  
  55.     INTERNALS
  56.  
  57.     HISTORY
  58.     29-10-95    digulla automatically created from
  59.                 intuition_lib.fd and clib/intuition_protos.h
  60.  
  61. *****************************************************************************/
  62. {
  63.     AROS_LIBFUNC_INIT
  64.     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  65.  
  66.     /* Klasse da und noch/schon in der Liste ? */
  67.     if (classPtr && (classPtr->cl_Flags & CLF_INLIST))
  68.     {
  69.     Forbid ();
  70.  
  71.     Remove ((struct Node *)classPtr);
  72.  
  73.     Permit ();
  74.  
  75.     classPtr->cl_Flags &= ~CLF_INLIST;
  76.     }
  77.  
  78.     AROS_LIBFUNC_EXIT
  79. } /* RemoveClass */
  80.